global var_listeMessages

################################################################################
#
# Retourne la liste des messages recus pour un salon donne
#
# => param_salonId : id du salon dont on veut recuperer la liste des messages
#
# <= liste des messages associes au salon
#
################################################################################
proc proc_getMessagesSalon { param_salonId } {
	# Recupere la liste des messages
	global var_listeMessages
	
	set var_listeMessagesSalon {}

	# Teste si la liste des messages existe (non vide)
	if { [info exists var_listeMessages] == 0 } {
		return $var_listeMessagesSalon
	}
	if { [lsearch [array names var_listeMessages] $param_salonId] == -1 } {
		return $var_listeMessagesSalon
	}

	set var_listeMessagesSalon $var_listeMessages($param_salonId)
	
	return $var_listeMessagesSalon
}

################################################################################
#
# Vide la liste des messages recus pour un salon donne
#
# => param_salonId : id du salon dont on veut vider la liste de messages recus
#
################################################################################
proc proc_viderMessagesSalon { param_salonId } {
	global var_listeMessages
	if { [info exists var_listeMessages($param_salonId)] } {
		unset var_listeMessages($param_salonId) 
	}
}

################################################################################
#
# Ajoute un element la liste des messages recus pour un salon donne
#
# => param_salonId : id du salon dans lequel le message doit etre ajoute
# => param_message : message a ajouter 
#                    | id emmeteur | corps |
#
################################################################################
proc proc_ajouterMessageSalon { param_salonId param_message } {
	global var_listeMessages
	#puts stderr ">>> $param_message"
	array set var_messageStructure [proc_buildArrayFromMessage $param_message]
	set var_messageStockage(noeudId) $var_messageStructure(noeudId)
	set var_messageStockage(corps) $var_messageStructure(corps)
	set var_messageStockage(estampille) $var_messageStructure(estampille)
	
	proc_updateSalonEstampille $param_salonId $var_messageStructure(estampille)
	
	lappend var_listeMessages($param_salonId) [array get var_messageStockage]
}
